home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh4x / sh45a.d64 / listing 11 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  485b  |  13 lines
  1. 10 PRINTCHR$(147)       :REM BILDSCHIRM LOESCHEN
  2. 20 POKE 2040,13         :REM DATEN SPRITE 0 AUS BLOCK 13
  3. 30 FOR I=0 TO 62:POKE 832+I,255:NEXT:REM SPRITEDATEN EINTRAGEN
  4. 40 V=53248              :REM STARTADRESSE DES VIDEOCHIP
  5. 50 POKE V+21,1          :REM SPRITE 0 EINSCHALTEN
  6. 60 POKE V+39,1:POKE V+23,1:POKE V+29,1:REM SPRITE 0 FARBE GEBEN UND VERGROESSERN
  7. 70 POKE V+1,100         :REM SPRITE 0 Y-POSITION
  8. 80 J=488
  9. 90 HX=INT(J/256):LX=J-256*HX:IFHX<0THEN80
  10. 100 POKE V,LX:POKE V+16,HX
  11. 110 J=J-1:IF J>511 THEN J=0
  12. 120 IF J<488 OR J>348 THEN 90
  13.